home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib03.dsk / YOUR APPLE'S A BRAIN.bas < prev   
BASIC Source File  |  2023-02-26  |  668b  |  20 lines
  1. 5  PRINT  CHR$(4);"BLOAD TONE GEN"
  2. 10  DIM A(41)
  3. 20  FOR I = 0 TO 41
  4. 30  READ A(I)
  5. 40  NEXT I
  6. 50  DATA  255,242,228,215,203,192,181,171,161,152,144,136,128,121,114,108,102,96,91,85,81,76,72,68,64,57,54,51,48,45,43,40,38,36,34,32,30,29,27,25,24,
  7. 60 I =  INT(41 * RND(1))
  8. 70 J =  INT(7 * RND(1))
  9. 71  IF J = 1  THEN J = 255: GOTO 80
  10. 72  IF J = 2  THEN J = 128: GOTO 80
  11. 73  IF J = 3  THEN J = 64: GOTO 80
  12. 74  IF J = 4  THEN J = 32: GOTO 80
  13. 75  IF J = 5  THEN J = 16: GOTO 80
  14. 76  IF J = 6  THEN J = 8: GOTO 80
  15. 80  POKE 768,A(I): POKE 769,J: CALL 770
  16. 81 A =  RND(1): IF A >.5  THEN A =  -A
  17. 82 I2 = I +A *( RND(1)) *11
  18. 83 I =  ABS(I2)
  19. 85  FOR P = 1 TO 100: NEXT P
  20. 90  GOTO 70